﻿Public Class ClsTVoucher
    'T_Voucher(20)
    'VoucherAutoId,VoucherId,WorkPeriod,VoucherGroupId,VoucherGroup,VoucherNumber,
    'VoucherDate,Attachment,Casher,Poster,Maker,Checker,
    'Hander,SumOfDebit,SumOfCredit,VoucherStatus,Posted,Module,
    'Deleted,Memo

    Private m_VoucherAutoId As Integer '0 自动编号 
    Private m_VoucherId As Integer '1
    Private m_WorkPeriod As String '2
    Private m_VoucherGroupId As Integer '3
    Private m_VoucherGroup As String '4
    Private m_VoucherNumber As Integer '5
    Private m_VoucherDate As DateTime '6
    Private m_Attachment As Integer '7 附件数量
    Private m_Casher As String '8
    Private m_Poster As String '9
    Private m_Maker As String '10
    Private m_Checker As String '11
    Private m_Hander As String '12
    Private m_SumOfDebit As Decimal '13
    Private m_SumOfCredit As Decimal '14
    Private m_VoucherStatus As String '15 凭证状态：正常，红冲
    Private m_Posted As Boolean '16
    Private m_Module As String '17 自动凭证 损益凭证 手工凭证
    Private m_Deleted As Boolean '18
    Private m_Memo As String '19 凭证事项说明，如果有需要则写
    Private m_MoneyHz As String '20 凭证合计的大写
    Private m_Checked As Boolean '21 审核标记
    Private m_EntryList As List(Of ClsTVoucherDetail) '分录集合

    Public Property VoucherAutoId As Integer
        Get
            Return m_VoucherAutoId
        End Get
        Set(value As Integer)
            m_VoucherAutoId = value
        End Set
    End Property

    Public Property VoucherId As Integer
        Get
            Return m_VoucherId
        End Get
        Set(value As Integer)
            m_VoucherId = value
        End Set
    End Property

    Public Property WorkPeriod As String
        Get
            Return m_WorkPeriod
        End Get
        Set(value As String)
            m_WorkPeriod = value
        End Set
    End Property

    Public Property VoucherGroupId As Integer
        Get
            Return m_VoucherGroupId
        End Get
        Set(value As Integer)
            m_VoucherGroupId = value
        End Set
    End Property

    Public Property VoucherGroup As String
        Get
            Return m_VoucherGroup
        End Get
        Set(value As String)
            m_VoucherGroup = value
        End Set
    End Property

    Public Property VoucherNumber As Integer
        Get
            Return m_VoucherNumber
        End Get
        Set(value As Integer)
            m_VoucherNumber = value
        End Set
    End Property

    Public Property VoucherDate As Date
        Get
            Return m_VoucherDate
        End Get
        Set(value As Date)
            m_VoucherDate = value
        End Set
    End Property

    Public Property Attachment As Integer
        Get
            Return m_Attachment
        End Get
        Set(value As Integer)
            m_Attachment = value
        End Set
    End Property

    Public Property Casher As String
        Get
            Return m_Casher
        End Get
        Set(value As String)
            m_Casher = value
        End Set
    End Property

    Public Property Poster As String
        Get
            Return m_Poster
        End Get
        Set(value As String)
            m_Poster = value
        End Set
    End Property

    Public Property Maker As String
        Get
            Return m_Maker
        End Get
        Set(value As String)
            m_Maker = value
        End Set
    End Property

    Public Property Checker As String
        Get
            Return m_Checker
        End Get
        Set(value As String)
            m_Checker = value
        End Set
    End Property

    Public Property Hander As String
        Get
            Return m_Hander
        End Get
        Set(value As String)
            m_Hander = value
        End Set
    End Property

    Public Property SumOfDebit As Decimal
        Get
            Return m_SumOfDebit
        End Get
        Set(value As Decimal)
            m_SumOfDebit = value
        End Set
    End Property

    Public Property SumOfCredit As Decimal
        Get
            Return m_SumOfCredit
        End Get
        Set(value As Decimal)
            m_SumOfCredit = value
        End Set
    End Property

    Public Property VoucherStatus As String
        Get
            Return m_VoucherStatus
        End Get
        Set(value As String)
            m_VoucherStatus = value
        End Set
    End Property

    Public Property Posted As Boolean
        Get
            Return m_Posted
        End Get
        Set(value As Boolean)
            m_Posted = value
        End Set
    End Property

    Public Property [Module] As String
        Get
            Return m_Module
        End Get
        Set(value As String)
            m_Module = value
        End Set
    End Property

    Public Property Deleted As Boolean
        Get
            Return m_Deleted
        End Get
        Set(value As Boolean)
            m_Deleted = value
        End Set
    End Property

    Public Property Memo As String
        Get
            Return m_Memo
        End Get
        Set(value As String)
            m_Memo = value
        End Set
    End Property

    Public Property EntryList As List(Of ClsTVoucherDetail)
        Get
            Return m_EntryList
        End Get
        Set(value As List(Of ClsTVoucherDetail))
            m_EntryList = value
        End Set
    End Property

    Public Property MoneyHz As String
        Get
            Return m_MoneyHz
        End Get
        Set(value As String)
            m_MoneyHz = value
        End Set
    End Property

    Public Property Checked As Boolean
        Get
            Return m_Checked
        End Get
        Set(value As Boolean)
            m_Checked = value
        End Set
    End Property
End Class
